home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Review.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1.0 KB  |  32 lines
  1. global gMasterData, gReviewData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- Step Right Up, The Review ----------" & RETURN & RETURN after vTempText
  18.   put the text of member "print review" & RETURN & RETURN after vTempText
  19.   put "Your score in this activity was:" && string(the score of gReviewData) & RETURN & RETURN & RETURN after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.  
  23. on getBigString
  24.   set vText to EMPTY
  25.   repeat with X = 1 to 5
  26.     put line X of field "print1" & RETURN after vText
  27.     put the text of member ("zField" && string(X)) & RETURN after vText
  28.   end repeat
  29.   put the text of member "print2" & RETURN after vText
  30.   return vText
  31. end
  32.